/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / BARNET / INTERNET / ACORNET / ACORN-ST / ACRNET21 / !AcornetA_ChLib_menu

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0a f4 3e 4d 65 | 6e 75 0d 00 14 26 f4 20 |.....>Me|nu...&. |
|00000010| 43 6f 70 79 72 69 67 68 | 74 20 31 39 39 35 2c 31 |Copyrigh|t 1995,1|
|00000020| 39 39 36 20 43 6f 6c 69 | 6e 20 48 6f 67 62 65 6e |996 Coli|n Hogben|
|00000030| 0d 00 1e 40 f4 20 59 6f | 75 20 75 73 65 20 74 68 |...@. Yo|u use th|
|00000040| 69 73 20 63 6f 64 65 20 | 66 6f 72 20 61 6e 79 20 |is code |for any |
|00000050| 6e 6f 6e 2d 70 72 6f 66 | 69 74 20 70 75 72 70 6f |non-prof|it purpo|
|00000060| 73 65 2c 20 70 72 6f 76 | 69 64 65 64 20 79 6f 75 |se, prov|ided you|
|00000070| 0d 00 28 3e f4 20 64 6f | 63 75 6d 65 6e 74 20 61 |..(>. do|cument a|
|00000080| 6e 79 20 63 68 61 6e 67 | 65 73 20 6d 61 64 65 20 |ny chang|es made |
|00000090| 61 6e 64 20 61 70 70 6c | 79 20 74 68 65 20 73 61 |and appl|y the sa|
|000000a0| 6d 65 20 63 6f 6e 64 69 | 74 69 6f 6e 73 2e 0d 00 |me condi|tions...|
|000000b0| 32 04 0d 00 3c 10 dd 20 | a4 6d 65 6e 75 5f 69 6e |2...<.. |.menu_in|
|000000c0| 69 74 0d 00 46 21 54 5f | 6d 65 6e 75 3d a4 74 79 |it..F!T_|menu=.ty|
|000000d0| 70 65 5f 63 72 65 61 74 | 65 28 22 4d 65 6e 75 22 |pe_creat|e("Menu"|
|000000e0| 2c 30 29 0d 00 50 17 6d | 65 6e 75 5f 63 75 72 72 |,0)..P.m|enu_curr|
|000000f0| 65 6e 74 6f 70 65 6e 25 | 3d 30 0d 00 5a 06 3d 30 |entopen%|=0..Z.=0|
|00000100| 0d 00 64 04 0d 00 6e 20 | dd 20 a4 6d 65 6e 75 5f |..d...n |. .menu_|
|00000110| 63 72 65 61 74 65 28 74 | 69 74 6c 65 24 2c 64 65 |create(t|itle$,de|
|00000120| 73 63 24 29 0d 00 78 0b | ea 20 6d 65 6e 75 25 0d |sc$)..x.|. menu%.|
|00000130| 00 82 38 6d 65 6e 75 25 | 3d a4 6d 61 6c 6c 6f 63 |..8menu%|=.malloc|
|00000140| 28 54 5f 6d 65 6e 75 2b | 32 38 2b 32 34 2a 28 a4 |(T_menu+|28+24*(.|
|00000150| 73 74 72 63 6f 75 6e 74 | 28 64 65 73 63 24 2c 22 |strcount|(desc$,"|
|00000160| 2c 22 29 2b 31 29 29 0d | 00 8c 19 f2 73 74 72 73 |,")+1)).|....strs|
|00000170| 65 74 28 6d 65 6e 75 25 | 2c 74 69 74 6c 65 24 29 |et(menu%|,title$)|
|00000180| 0d 00 96 16 6d 65 6e 75 | 25 21 31 32 3d 26 30 30 |....menu|%!12=&00|
|00000190| 30 37 30 32 30 37 0d 00 | a0 17 6d 65 6e 75 25 21 |070207..|..menu%!|
|000001a0| 31 36 3d a9 74 69 74 6c | 65 24 2a 31 36 0d 00 aa |16=.titl|e$*16...|
|000001b0| 0f 6d 65 6e 75 25 21 32 | 30 3d 34 34 0d 00 b4 0e |.menu%!2|0=44....|
|000001c0| 6d 65 6e 75 25 21 32 34 | 3d 30 0d 00 be 12 69 74 |menu%!24|=0....it|
|000001d0| 65 6d 25 3d 6d 65 6e 75 | 25 2b 32 38 0d 00 c8 24 |em%=menu|%+28...$|
|000001e0| f2 5f 6d 65 6e 75 5f 65 | 78 74 28 6d 65 6e 75 25 |._menu_e|xt(menu%|
|000001f0| 2c 6d 65 6e 75 25 2b 32 | 38 2c 64 65 73 63 24 29 |,menu%+2|8,desc$)|
|00000200| 0d 00 d2 0a 3d 6d 65 6e | 75 25 0d 00 dc 04 0d 00 |....=men|u%......|
|00000210| e6 1f dd 20 a4 6d 65 6e | 75 5f 65 78 74 65 6e 64 |... .men|u_extend|
|00000220| 28 6d 65 6e 75 25 2c 64 | 65 73 63 24 29 0d 00 f0 |(menu%,d|esc$)...|
|00000230| 12 ea 20 6e 65 77 25 2c | 65 6e 64 25 2c 69 25 0d |.. new%,|end%,i%.|
|00000240| 00 fa 1d f2 74 79 70 65 | 5f 63 68 65 63 6b 28 6d |....type|_check(m|
|00000250| 65 6e 75 25 2c 54 5f 6d | 65 6e 75 29 0d 01 04 0b |enu%,T_m|enu)....|
|00000260| 65 6e 64 25 3d 32 38 0d | 01 0e 27 f5 20 65 6e 64 |end%=28.|..'. end|
|00000270| 25 2b 3d 32 34 3a 20 fd | 20 6d 65 6e 75 25 21 28 |%+=24: .| menu%!(|
|00000280| 65 6e 64 25 2d 32 34 29 | 20 80 20 26 38 30 0d 01 |end%-24)| . &80..|
|00000290| 18 18 6d 65 6e 75 25 21 | 28 65 6e 64 25 2d 32 34 |..menu%!|(end%-24|
|000002a0| 29 2d 3d 26 38 30 0d 01 | 22 3a 6d 65 6e 75 25 3d |)-=&80..|":menu%=|
|000002b0| a4 72 65 61 6c 6c 6f 63 | 28 6d 65 6e 75 25 2c 65 |.realloc|(menu%,e|
|000002c0| 6e 64 25 2b 32 34 2a 28 | a4 73 74 72 63 6f 75 6e |nd%+24*(|.strcoun|
|000002d0| 74 28 64 65 73 63 24 2c | 22 2c 22 29 2b 31 29 29 |t(desc$,|",")+1))|
|000002e0| 0d 01 2c 26 f2 5f 6d 65 | 6e 75 5f 65 78 74 28 6d |..,&._me|nu_ext(m|
|000002f0| 65 6e 75 25 2c 6d 65 6e | 75 25 2b 65 6e 64 25 2c |enu%,men|u%+end%,|
|00000300| 64 65 73 63 24 29 0d 01 | 36 0a 3d 6d 65 6e 75 25 |desc$)..|6.=menu%|
|00000310| 0d 01 40 04 0d 01 4a 23 | dd 20 f2 5f 6d 65 6e 75 |..@...J#|. ._menu|
|00000320| 5f 65 78 74 28 6d 65 6e | 75 25 2c 69 74 65 6d 25 |_ext(men|u%,item%|
|00000330| 2c 64 65 73 63 24 29 0d | 01 54 16 ea 20 6d 61 78 |,desc$).|.T.. max|
|00000340| 77 25 2c 63 25 2c 73 25 | 2c 73 75 62 25 0d 01 5e |w%,c%,s%|,sub%..^|
|00000350| 15 6d 61 78 77 25 3d 6d | 65 6e 75 25 21 31 36 2f |.maxw%=m|enu%!16/|
|00000360| 31 36 0d 01 68 05 f5 0d | 01 72 14 20 20 63 25 3d |16..h...|.r.  c%=|
|00000370| a7 64 65 73 63 24 2c 22 | 2c 22 29 0d 01 7c 1a 20 |.desc$,"|,")..|. |
|00000380| 20 e7 20 63 25 3d 30 20 | 8c 20 63 25 3d a9 64 65 | . c%=0 |. c%=.de|
|00000390| 73 63 24 2b 31 0d 01 86 | 18 20 20 69 74 65 6d 24 |sc$+1...|.  item$|
|000003a0| 3d c0 64 65 73 63 24 2c | 63 25 2d 31 29 0d 01 90 |=.desc$,|c%-1)...|
|000003b0| 24 f4 20 20 50 52 4f 43 | 74 72 61 63 65 28 22 4d |$.  PROC|trace("M|
|000003c0| 65 6e 75 20 69 74 65 6d | 20 22 2b 69 74 65 6d 24 |enu item| "+item$|
|000003d0| 29 0d 01 9a 14 20 20 73 | 25 3d a7 69 74 65 6d 24 |)....  s|%=.item$|
|000003e0| 2c 22 3e 22 29 0d 01 a4 | 3d 20 20 e7 20 73 25 20 |,">")...|=  . s% |
|000003f0| 8c 20 73 75 62 25 3d bb | c1 69 74 65 6d 24 2c 73 |. sub%=.|.item$,s|
|00000400| 25 2b 31 29 3a 20 69 74 | 65 6d 24 3d c0 69 74 65 |%+1): it|em$=.ite|
|00000410| 6d 24 2c 73 25 2d 31 29 | 20 8b 20 73 75 62 25 3d |m$,s%-1)| . sub%=|
|00000420| 2d 31 0d 01 ae 0f 20 20 | 69 74 65 6d 25 21 30 3d |-1....  |item%!0=|
|00000430| 30 0d 01 b8 12 20 20 69 | 74 65 6d 25 21 34 3d 73 |0....  i|tem%!4=s|
|00000440| 75 62 25 0d 01 c2 17 20 | 20 69 74 65 6d 25 21 38 |ub%.... | item%!8|
|00000450| 3d 26 30 37 30 30 30 31 | 32 31 0d 01 cc 1d 20 20 |=&070001|21....  |
|00000460| 69 74 65 6d 25 21 31 32 | 3d a4 73 74 72 64 75 70 |item%!12|=.strdup|
|00000470| 28 69 74 65 6d 24 29 0d | 01 d6 11 20 20 69 74 65 |(item$).|...  ite|
|00000480| 6d 25 21 31 36 3d 2d 31 | 0d 01 e0 17 20 20 69 74 |m%!16=-1|....  it|
|00000490| 65 6d 25 21 32 30 3d a9 | 69 74 65 6d 24 2b 31 0d |em%!20=.|item$+1.|
|000004a0| 01 ea 23 20 20 e7 20 a9 | 69 74 65 6d 24 3e 6d 61 |..#  . .|item$>ma|
|000004b0| 78 77 25 20 8c 20 6d 61 | 78 77 25 3d a9 69 74 65 |xw% . ma|xw%=.ite|
|000004c0| 6d 24 0d 01 f4 18 20 20 | 64 65 73 63 24 3d c1 64 |m$....  |desc$=.d|
|000004d0| 65 73 63 24 2c 63 25 2b | 31 29 0d 01 fe 0f 20 20 |esc$,c%+|1)....  |
|000004e0| 69 74 65 6d 25 2b 3d 32 | 34 0d 02 08 0e fd 20 64 |item%+=2|4..... d|
|000004f0| 65 73 63 24 3d 22 22 0d | 02 12 11 69 74 65 6d 25 |esc$="".|...item%|
|00000500| 21 2d 32 34 3d 26 38 30 | 0d 02 1c 15 6d 65 6e 75 |!-24=&80|....menu|
|00000510| 25 21 31 36 3d 6d 61 78 | 77 25 2a 31 36 0d 02 26 |%!16=max|w%*16..&|
|00000520| 05 e1 0d 02 30 04 0d 02 | 3a 19 dd 20 f2 6d 65 6e |....0...|:.. .men|
|00000530| 75 5f 64 65 6c 65 74 65 | 28 6d 65 6e 75 25 29 0d |u_delete|(menu%).|
|00000540| 02 44 0b ea 20 69 74 65 | 6d 25 0d 02 4e 1d f2 74 |.D.. ite|m%..N..t|
|00000550| 79 70 65 5f 63 68 65 63 | 6b 28 6d 65 6e 75 25 2c |ype_chec|k(menu%,|
|00000560| 54 5f 6d 65 6e 75 29 0d | 02 58 12 69 74 65 6d 25 |T_menu).|.X.item%|
|00000570| 3d 6d 65 6e 75 25 2b 32 | 38 0d 02 62 05 f5 0d 02 |=menu%+2|8..b....|
|00000580| 6c 38 20 20 e7 20 69 74 | 65 6d 25 21 34 3c 3e 30 |l8  . it|em%!4<>0|
|00000590| 20 80 20 69 74 65 6d 25 | 21 34 3c 3e 2d 31 20 8c | . item%|!4<>-1 .|
|000005a0| 20 f2 6d 65 6e 75 5f 64 | 65 6c 65 74 65 28 69 74 | .menu_d|elete(it|
|000005b0| 65 6d 25 21 34 29 0d 02 | 76 15 20 20 f2 66 72 65 |em%!4)..|v.  .fre|
|000005c0| 65 28 69 74 65 6d 25 21 | 31 32 29 0d 02 80 0f 20 |e(item%!|12).... |
|000005d0| 20 69 74 65 6d 25 2b 3d | 32 34 0d 02 8a 15 fd 20 | item%+=|24..... |
|000005e0| 69 74 65 6d 25 21 2d 32 | 34 20 80 20 26 38 30 0d |item%!-2|4 . &80.|
|000005f0| 02 94 10 f2 66 72 65 65 | 28 6d 65 6e 75 25 29 0d |....free|(menu%).|
|00000600| 02 9e 05 e1 0d 02 a8 04 | 0d 02 b2 1d dd 20 f2 6d |........|..... .m|
|00000610| 65 6e 75 5f 73 68 6f 77 | 28 6d 65 6e 75 25 2c 78 |enu_show|(menu%,x|
|00000620| 25 2c 79 25 29 0d 02 bc | 1d f2 74 79 70 65 5f 63 |%,y%)...|..type_c|
|00000630| 68 65 63 6b 28 6d 65 6e | 75 25 2c 54 5f 6d 65 6e |heck(men|u%,T_men|
|00000640| 75 29 0d 02 c6 27 c8 99 | 22 57 69 6d 70 5f 43 72 |u)...'..|"Wimp_Cr|
|00000650| 65 61 74 65 4d 65 6e 75 | 22 2c 2c 6d 65 6e 75 25 |eateMenu|",,menu%|
|00000660| 2c 78 25 2d 36 34 2c 79 | 25 0d 02 d0 1b 6d 65 6e |,x%-64,y|%....men|
|00000670| 75 5f 63 75 72 72 65 6e | 74 6f 70 65 6e 25 3d 6d |u_curren|topen%=m|
|00000680| 65 6e 75 25 0d 02 da 05 | e1 0d 02 e4 04 0d 02 ee |enu%....|........|
|00000690| 1d dd 20 a4 6d 65 6e 75 | 5f 69 74 65 6d 28 6d 65 |.. .menu|_item(me|
|000006a0| 6e 75 25 2c 69 74 65 6d | 25 29 0d 02 f8 1d f2 74 |nu%,item|%).....t|
|000006b0| 79 70 65 5f 63 68 65 63 | 6b 28 6d 65 6e 75 25 2c |ype_chec|k(menu%,|
|000006c0| 54 5f 6d 65 6e 75 29 0d | 03 02 24 3d a4 73 74 72 |T_menu).|..$=.str|
|000006d0| 67 65 74 28 6d 65 6e 75 | 25 21 28 32 38 2b 32 34 |get(menu|%!(28+24|
|000006e0| 2a 69 74 65 6d 25 2b 31 | 32 29 29 0d 03 0c 04 0d |*item%+1|2)).....|
|000006f0| 03 16 1f dd 20 a4 6d 65 | 6e 75 5f 64 65 63 6f 64 |.... .me|nu_decod|
|00000700| 65 28 6d 65 6e 75 25 2c | 6c 69 73 74 25 29 0d 03 |e(menu%,|list%)..|
|00000710| 20 0b ea 20 62 25 2c 74 | 24 0d 03 2a 1d f2 74 79 | .. b%,t|$..*..ty|
|00000720| 70 65 5f 63 68 65 63 6b | 28 6d 65 6e 75 25 2c 54 |pe_check|(menu%,T|
|00000730| 5f 6d 65 6e 75 29 0d 03 | 34 13 62 25 3d a4 6d 61 |_menu)..|4.b%=.ma|
|00000740| 6c 6c 6f 63 28 32 35 36 | 29 0d 03 3e 2f c8 99 22 |lloc(256|)..>/.."|
|00000750| 57 69 6d 70 5f 44 65 63 | 6f 64 65 4d 65 6e 75 22 |Wimp_Dec|odeMenu"|
|00000760| 2c 2c 6d 65 6e 75 25 2c | 6c 69 73 74 25 2c 62 25 |,,menu%,|list%,b%|
|00000770| 20 b8 20 2c 2c 2c 74 24 | 0d 03 48 0d f2 66 72 65 | . ,,,t$|..H..fre|
|00000780| 65 28 62 25 29 0d 03 52 | 07 3d 74 24 0d 03 5c 04 |e(b%)..R|.=t$..\.|
|00000790| 0d 03 66 18 dd 20 a4 6d | 65 6e 75 5f 66 69 72 73 |..f.. .m|enu_firs|
|000007a0| 74 28 6d 65 6e 75 25 29 | 0d 03 70 0b ea 20 69 74 |t(menu%)|..p.. it|
|000007b0| 65 6d 24 0d 03 7a 1b 69 | 74 65 6d 24 3d a4 73 74 |em$..z.i|tem$=.st|
|000007c0| 72 67 65 74 28 6d 65 6e | 75 25 21 34 30 29 0d 03 |rget(men|u%!40)..|
|000007d0| 84 43 e7 20 6d 65 6e 75 | 25 21 33 32 3c 3e 30 20 |.C. menu|%!32<>0 |
|000007e0| 80 20 6d 65 6e 75 25 21 | 33 32 3c 3e 2d 31 20 8c |. menu%!|32<>-1 .|
|000007f0| 20 69 74 65 6d 24 2b 3d | 22 2e 22 2b a4 6d 65 6e | item$+=|"."+.men|
|00000800| 75 5f 66 69 72 73 74 28 | 6d 65 6e 75 25 21 33 32 |u_first(|menu%!32|
|00000810| 29 0d 03 8e 0a 3d 69 74 | 65 6d 24 0d ff          |)....=it|em$..   |
+--------+-------------------------+-------------------------+--------+--------+